library(lubridate) #lubridate是　tidyverse中提供的时间处理

today()

now()

# 日期型  转   日期时间型
as_datetime(today())

# 日期时间型  转  日期型
as_date(now())

ymd("2021/12/06")
ymd("2021/1206")
myd("03202001")
dmy("03012020")
ymd_hm("2020/03~011213")
make_date(2020,8,27)
make_datetime(2020, 8, 27, 21, 27, 15)


# 日期格式化
d <- make_date(2020, 3, 6)
format(d, "%Y/%m/%d")

t <- make_datetime(2021, 12, 5, 21, 7, 15)
fmt <- stamp("Create on Sunday, Jan 1, 1999 3:34 pm")
fmt(t)


# 提取日期、时间
t = ymd_hms("2021/12/05/ 17:24:20")
t
year(t)
month(t)
day(t)
quarter(t)
yday(t) #当年的第几天
minute(t)
second(t)
weekdays(t)
wday(t)
wday(t, label=TRUE)
week(t)
tz(t) # 时区


begin = ymd_hm("2019-08-10 14:00")
end = ymd_hm("2020-03-05 18:15")
gap = interval(begin, end)
t %within% gap

duration(100, units="day")
int = as.duration(gap)
int


ts(data<-1:10, start<-2010, end<-2019) #年度数据
ts(data<-1:10, start<-2010, end<-2019, frequency=4) #季度数据
ts(data<-1:10, start<-2010, end<-2019, frequency=12) #月度度数据
